home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / RFS275.lha / rexx / !GEN.rfh < prev    next >
Text File  |  1994-09-28  |  169b  |  9 lines
  1.  
  2. get_fd:
  3. if ~compiled then return subword(arg(2),8) 
  4. else do
  5.     address COMMAND 'SetEnv DESC `LIST 'arg(1)' LFORMAT "%C"`'    
  6.     return GetVar('DESC',"G")
  7. end
  8. return
  9.